Application.ModelessCmd("g16")
Application.ModelessCmd("gd16")
Application.StatusBarText = "Set Grids = 16"